home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed38.d64 / test 2 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  159 lines
  1. 100 POKE53280,0:POKE53281,0:POKE53272,23
  2. 150 PRINT"[147][158]             [215][200][195] [197]NTERPRISES"
  3. 155 GOSUB390:GOSUB340:PRINT"[153]                                        [146]";
  4. 160 PRINT"                                        [146]";
  5. 162 PRINT"            [197][206][199][204][201][211][200][160][197][216][197][210][195][201][211][197][211]           [146]";
  6. 165 PRINT"[153]                                        [146]";:GOSUB390:GOSUB340
  7. 170 PRINT"                                        [146]";
  8. 175 PRINT"          * [211]PELLINGZZZZAPPER *         [146]";
  9. 180 PRINT"[153]                                        [146]";:GOSUB390:GOSUB340
  10. 182 PRINT"                [212]EST # 2                [146]";
  11. 184 PRINT"[153]                                        [146]";
  12. 186 PRINT"                                        [146]":GOSUB391
  13. 188 PRINT"                                      [152][212][153]"
  14. 190 GOSUB290
  15. 195 GOTO500
  16. 200 REM CORRECT
  17. 202 GOSUB300
  18. 204 PRINT"[153]               [195][207][210][210][197][195][212]!                 [146]"
  19. 206 GOSUB392:RETURN
  20. 210 REM WRONG
  21. 212 GOSUB320
  22. 214 PRINT"[150]           [206][207]!!   [212]RY AGAIN!            [146]":GOSUB392
  23. 216 PRINT"[145][145]                                        [145][145]
  24. 218 [153]"ONONON                                        ONONON":[142]
  25. 290 [141]392:[141]360
  26. 292 [153]"CONT      (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE       WAIT"
  27. 294 [161]R$:[139]R$[179][177][199](32)[175]R$[179][177]"T"[167]294
  28. 296 [139]R$[178]"T"[167][141]900
  29. 298 [153]"LOAD":[141]390:[142]
  30. 299 :
  31. 300 [143] <YES> SOUND
  32. 302 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  33. 304 [151]54296,15:[151]54277,42:[151]54278,250
  34. 306 [151]54276,23:[151]54273,23:[151]54272,191
  35. 308 [129]T[178]1[164]200:[130]:[151]54276,32:[129]T[178]1[164]250:[130]
  36. 310 [151]54296,0:[142]
  37. 320 [143] <NO> SOUND
  38. 322 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  39. 324 [151]54296,15:[151]54277,18:[151]54278,242
  40. 326 [151]54276,33:[151]54273,4:[151]54272,48
  41. 328 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  42. 330 [151]54296,0:[142]
  43. 340 [143] <BLIP> SOUND
  44. 342 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  45. 344 [151]54296,7:[151]54277,42:[151]54278,250
  46. 346 [151]54276,23:[151]54273,23:[151]54272,191
  47. 348 [129]T[178]1[164]35:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  48. 350 [151]54296,0:[142]
  49. 360 [143] <DING> SOUND
  50. 362 S[178]54272:[151]54296,15:[151]S,50:[151]S[170]1,35:[151]S[170]2,0:[151]S[170]3,8:[151]S[170]5,0
  51. 364 [151]S[170]6,10[172]16[170]9:[151]S[170]4,14:[151]S[170]4,65:[129]Q[178]1[164]20:[151]S[170]4,64:[142]
  52. 370 [143] <VERY WRONG SOUND>
  53. 372 S[178]54272:[151]54296,15:[151]S,32:[151]S[170]1,3:[151]S[170]2,128:[151]S[170]3,13
  54. 374 [151]S[170]5,4[172]16[170]0:[151]S[170]6,10[172]16[170]8
  55. 376 [151]S[170]24,15:[151]S[170]4,65:[129]Q[178]1[164]500:[130]:[151]S[170]4,64:[142]
  56. 390 [129]T[178]1[164]600:[130]:[142]
  57. 391 [129]T[178]1[164]1000:[130]:[142]
  58. 392 [129]T[178]1[164]2000:[130]:[142]
  59. 393 [129]T[178]1[164]3000:[130]:[142]
  60. 394 [129]T[178]1[164]4000:[130]:[142]
  61. 395 [129]T[178]1[164]5000:[130]:[142]
  62. 399 :
  63. 400 [153]"LISTLOAD (null)PELLINGZZZAPPER (null)-2         RIGHT$TEM "N
  64. 410 [142]
  65. 420 M[178]TI[173]60
  66. 425 M[178][181](M[170].5)
  67. 430 [142]
  68. 499 :
  69. 500 [153]"LOAD  RIGHT$N THIS PROGRAM YOU WILL TEST
  70. 502 PRINT"  YOURSELF TO SEE HOW MUCH YOU
  71. 504 [153]"  LEARNED IN PRINT(null)RACTICE #2OPEN.
  72. 508 PRINT"  [217]OU MUST SELECT AND TYPE WHICH
  73. 512 [153]"  OF TWO WORDS IS SPELLED CORRECTLY.
  74. 516 PRINT"  [217]OU WILL HAVE ONLY ONE CHANCE TO
  75. 520 [153]"  SELECT FROM EACH PAIR OF WORDS.
  76. 524 PRINT"  [193] TIMER WILL MEASURE YOUR RATE OF
  77. 528 [153]"  PROGRESS AND YOU ALSO WILL BE           SCORED.
  78. 532 PRINT"  [193]T THE END OF THE TEST, THE WORDS
  79. 536 [153]"  YOU MISSED WILL BE LISTED.  (null)LEASE
  80. 540 PRINT"  RECORD THESE WORDS FOR FURTHER
  81. 544 [153]"  STUDY.
  82. 550 GOSUB290
  83. 560 PRINT"[147][158]AND AWAY WE GO..........":GOSUB300:GOSUB392
  84. 565 :
  85. 570 TI$="000000"
  86. 599 :
  87. 600 N=1
  88. 605 DIMA$(19),B$(19),C$(19),Q$(19)
  89. 610 FORG=0TO19:FORI=0TO2:GOSUB400:N=N+1
  90. 615 GOSUB420:PRINT"            [197]LAPSED TIME";M
  91. 617 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]
  92. 620 [135]A$(G),B$(G),C$(G)
  93. 630 [153]"OPEN (null)HICH OF THESE WORDS IS SPELLED         CORRECTLY?
  94. 640 PRINT"       "A$(G);B$(G)
  95. 650 PRINT"[158] ":INPUTZ$
  96. 660 IFZ$=C$(G)THENGOSUB200:GOTO690
  97. 670 GOSUB370:PRINT"[150] [212]HE CORRECT WORD IS "C$(G)"[150]."
  98. 675 GOSUB290:W=W+1
  99. 680 Q$(G)="Q"
  100. 690 NEXTG
  101. 700 PRINT"[147]  [211]PELLINGZZZZZAPPER [212]-2   [211][195][207][210][197][160][194][207][193][210][196]  [146]
  102. 705 L[178]20[171]W:K[178]L[172]5:[141]420
  103. 710 [153]"      SYS (null)OUR SCORE ......";K"%":[141]360:[141]391
  104. 715 [153]"      SYS (null)OUR TIME .......";M"SECONDS":[141]360:[141]391
  105. 720 [153]"      PRINT LENORRECT .........";L:[141]300:[141]391
  106. 725 [153]"      DEF PEEK(null)(null)(null)(null)VAL(null)(null) ........";W:[141]370
  107. 730 [139]K[178][177]90[167][153]"               VAL(null)LENVAL(null)(null)VAL(null)(null)!CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSEWAIT"
  108. 735 [139]K[178]100[167][153]"":[141]790
  109. 740 [141]290
  110. 745 [153]"LOADSYS    (null)LEASE RECORD THESE LEFT$VALATN(null)(null) WORDS:"
  111. 750 [129]G[178]0[164]19:[139]Q$(G)[178]"Q"[167][153][163]8)C$(G)
  112. 755 [130]G
  113. 790 [141]290
  114. 799 :
  115. 800 [153]"LOADSYS (null)OU HAVE A CHOICE:
  116. 805 PRINT" [208]RESS  [210] [146] TO REPEAT [211]PELL [212]EST  2"
  117. 810 PRINT" [208]RESS  [205] [146] TO GO TO THE DISK MENU
  118. 815 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"(null)"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[167]815
  119. 820 [139] R$[178]"R"[167] [140]:[137]100
  120. 825 [139] R$[178]"(null)"[167] [140]:[137]100
  121. 830 [153]"LOADSYS (null)ETURNING TO THE DISK MENU.
  122. 835 LOAD"MENU",8
  123. 840 RUN
  124. 845 END
  125. 899 :
  126. 900 PRINT"[147][159]     [212]HE WORDS USED IN [211]PELL [212]EST 2:
  127. 905 [153]"     AGGRESSIVE    EXAGGERATE
  128. 910 PRINT"     NECESSARY     QUESTIONAIRE
  129. 915 [153]"     APPARENT      EXCELLENT
  130. 920 PRINT"     OCCASIONALLY  SUPPRESSION
  131. 925 [153]"     COMMIT        FULFILL
  132. 930 PRINT"     OCCURRED      UNNECESSARY
  133. 935 [153]"     COMMITTEE     INTELLIGENCE
  134. 940 PRINT"     OMISSION      VACUUM
  135. 945 [153]"     MISTAKES      ALLOWING
  136. 950 PRINT"     ACCOMMODATION SURPRISING"
  137. 960 GOSUB290:RETURN
  138. 1000 DATA"AGRESSIVE /"," AGGRESSIVE","AGGRESSIVE"
  139. 1010 DATA"EXAGGERATE /"," EXAGERATE","EXAGGERATE"
  140. 1020 DATA"NECESARY /"," NECESSARY","NECESSARY"
  141. 1030 DATA"QUESTIONNAIRE /"," QUESTIONAIRE","QUESTIONNAIRE"
  142. 1040 DATA"APPARENT /"," APARRENT","APPARENT"
  143. 1050 DATA"EXCELANT /"," EXCELLENT","EXCELLENT"
  144. 1060 DATA"OCASSIONALLY /"," OCCASIONALLY","OCCASIONALLY"
  145. 1070 DATA"SUPRESSION /"," SUPPRESSION","SUPPRESSION"
  146. 1080 DATA"COMMIT /"," COMMITT","COMMIT"
  147. 1090 DATA"FULLFILL /"," FULFILL","FULFILL"
  148. 1100 DATA"OCCURRED /"," OCCURED","OCCURRED"
  149. 1110 DATA"UNNECESSARY /"," UNECESSARY","UNNECESSARY"
  150. 1120 DATA"COMMITTE /"," COMMITTEE","COMMITTEE"
  151. 1130 DATA"INTELLIGENCE /"," INTELIGENCE","INTELLIGENCE"
  152. 1140 DATA"OMMISSION /"," OMISSION","OMISSION"
  153. 1150 DATA"VACUUM /"," VACCUM","VACUUM"
  154. 1160 DATA"MISSTAKES /"," MISTAKES","MISTAKES"
  155. 1170 DATA"ACCOMODATION /"," ACCOMMODATION","ACCOMMODATION"
  156. 1180 DATA"ALLOWING /"," ALOWING","ALLOWING"
  157. 1190 DATA"SURPPRISING /"," SURPRISING","SURPRISING"
  158. 2000 REM WHC 92:09:18
  159.